home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / star-1_0.tar / t23.star < prev    next >
Text File  |  1991-03-22  |  228b  |  31 lines
  1. ; STAR DOBLOCK test
  2.  
  3.     macro    xdata    arg=0
  4.  
  5.     arg = $arg
  6.  
  7.     data.a    $arg
  8.     endmacro
  9.  
  10.  
  11.     macro    rpl
  12.       doblock xdata, `endrpl'
  13.     endmacro
  14.  
  15.     .=x'70000
  16.  
  17.     doblock    xdata, `xend'
  18.       1
  19.       2+3
  20.       4
  21.       5
  22.     xend
  23.  
  24.     rpl
  25.       1
  26.       2+3
  27.       4
  28.       5
  29.     endrpl
  30.  
  31.